home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mission 3
/
Mission 3.zip
/
Mission 3.iso
/
demovers
/
scripter
/
demo
/
lfilefnd.sic
< prev
next >
Wrap
Text File
|
1998-09-26
|
1KB
|
65 lines
//ACE-SICPAR 4 0055
/*
* Dieser Script sucht alle *.bak in allen übergebenen
* Laufwerken und Ordnern
*/
proc main(...)
{
// options("+trace");
if (argc) {
i = 0;
while (i<argc) {
folder[argv[i++]] = 1;
}
}
else {
if (fsel(name, "Suchpfad bestimmen", "*.bak"))
folder[path(name)] = 1;
else
exit(1);
}
temp = dialog.input("[filefind.sic] Suchmaske:", "*.LZH");
mask = temp[1];
if (errno) exit(1);
listbox.createBox(1,1);
// Falls hier aktiviert und unten nicht, dann werden die Treffer direkt dargestellt
// listbox.openBox(" FILEFIND.SIC ");
do {
i = 0;
with (fld in folder) {
listbox.setInfo(" "+fld); // ja: ausgeben
if (filelist(files, fld)) { // Verzeichnis lesen
++i;
for (j = 0; j<files.length; j++) { // und alles ansehen
name = files[j, 0];
if (files[j, 3] & 16) { // Ordner?
name = fld + name + "\\";
folder[name] = 1; // ja: merken
}
else { // Datei
if (match(name, mask))
listbox.insertItem("-s",fld+name);
}
}
}
delete(folder, fld);
}
} while (i>0); // solange mindestens ein gültiger Eintrag gefunden wurde
listbox.setInfo(" ");
listbox.openBox(" FILEFIND.SIC ");
resultat=listbox.handleBox();
listbox.closeBox();
listbox.freeItems();
}